home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / big_time.h < prev    next >
Text File  |  1998-12-03  |  51KB  |  1,126 lines
  1. #if BIG
  2. acorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  3.   for (j=0; j<32; j++)
  4.     acorf(S[j], D[j], n, n); }
  5. acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  6.   for (j=0; j<32; j++)
  7.     acort(S[j], D[j], n, n); }
  8. aspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  9.   for (j=0; j<32; j++)
  10.     aspec(S[j], inc1, D[j], inco, n); }
  11. blkman_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  12.   for (j=0; j<32; j++)
  13.     blkman(S[j], inc1, D[j], inco, n); }
  14. ccdotp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  15.   for (j=0; j<32; j++)
  16.     ccdotp(S[j], 2, S[(j+4)%8], 2, cso, n); }
  17. ccorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  18.   for (j=0; j<32; j++)
  19.     ccorf(S[j], S[(j+4)%8], D[j], n, n); }
  20. ccort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  21.   for (j=0; j<32; j++)
  22.     ccort(S[j], S[(j+4)%8], D[j], n, n); }
  23. cdotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  24.   for (j=0; j<32; j++)
  25.     cdotpr(S[j], 2, S[(j+4)%8], 2, cso, n); }
  26. cfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  27.   for (j=0; j<32; j++)
  28.     cfft(S[j], n, flg); }
  29. cfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  30.   for (j=0; j<32; j++)
  31.     cfftf(S[j], 2, D[j], 2, n); }
  32. /**
  33. cfftf_64c_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  34.   for (j=0; j<32; j++)
  35.     cfftf_64c(S[j], 2, D[j], 2, n); }
  36.  **/
  37. cffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  38.   for (j=0; j<32; j++)
  39.     cffti(S[j], 2, D[j], 2, n); }
  40. cfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  41.   for (j=0; j<32; j++)
  42.     cfftsc(D[j], n); }
  43. convd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  44.   for (j=0; j<32; j++)
  45.     convd(S[j], 1, S[(j+4)%8], 1, D[j], 1, n, 32, ndf); }
  46. cpow_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  47.   for (j=0; j<32; j++)
  48.     cpow(S[j], 2, &rs1, S[(j+4)%8], inc2, &rs2, D[j], inco, n); }
  49. crvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  50.   for (j=0; j<32; j++)
  51.     crvdiv(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  52. crvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  53.   for (j=0; j<32; j++)
  54.     crvmul(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  55. cspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  56.   for (j=0; j<32; j++)
  57.     cspec(S[j], S[(j+4)%8], D[j], n); }
  58. cvabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  59.   for (j=0; j<32; j++)
  60.     cvabs(S[j], 2, D[j], inco, n); }
  61. cvadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  62.   for (j=0; j<32; j++)
  63.     cvadd(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  64. cvcml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  65.   for (j=0; j<32; j++)
  66.     cvcml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  67. cvcmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  68.   for (j=0; j<32; j++)
  69.     cvcmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  70. cvcomb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  71.   for (j=0; j<32; j++)
  72.     cvcomb(S[j], inc1, S[(j+4)%8], inc2, D[j], 2, n); }
  73. cvconj_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  74.   for (j=0; j<32; j++)
  75.     cvconj(S[j], 2, D[j], 2, n); }
  76. cvcsml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  77.   for (j=0; j<32; j++)
  78.     cvcsml(S[j], 2, cs1, D[j], 2, n); }
  79. cvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  80.   for (j=0; j<32; j++)
  81.     cvdiv(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  82. cvexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  83.   for (j=0; j<32; j++)
  84.     cvexp(S[j], inc1, D[j], 2, n); }
  85. cvfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  86.   for (j=0; j<32; j++)
  87.     cvfill(cs1, D[j], 2, n); }
  88. cvma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  89.   for (j=0; j<32; j++)
  90.     cvma(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n, 1); }
  91. cvmags_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  92.   for (j=0; j<32; j++)
  93.     cvmags(S[j], 2, D[j], inco, n); }
  94. cvmexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  95.   for (j=0; j<32; j++)
  96.     cvmexp(S[j], inc1, S[(j+4)%8], 2, D[j], 2, n); }
  97. cvmgsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  98.   for (j=0; j<32; j++)
  99.     cvmgsa(S[j], 2, S[(j+4)%8], inc2, D[j], inco, n); }
  100. cvml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  101.   for (j=0; j<32; j++)
  102.     cvml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  103. cvmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  104.   for (j=0; j<32; j++)
  105.     cvmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  106. cvmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  107.   for (j=0; j<32; j++)
  108.     cvmov(S[j], 2, D[j], 2, n); }
  109. cvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  110.   for (j=0; j<32; j++)
  111.     cvmul(S[j], 2, S[(j+4)%8], 2, D[j], 2, n, flg); }
  112. cvneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  113.   for (j=0; j<32; j++)
  114.     cvneg(S[j], 2, D[j], 2, n); }
  115. cvphas_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  116.   for (j=0; j<32; j++)
  117.     cvphas(S[j], 2, D[j], inco, n); }
  118. cvrcip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  119.   for (j=0; j<32; j++)
  120.     cvrcip(S[j], 2, D[j], 2, n); }
  121. cvreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  122.   for (j=0; j<32; j++)
  123.     cvreal(S[j], inc1, D[j], 2, n); }
  124. cvsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  125.   for (j=0; j<32; j++)
  126.     cvsma(S[j], 2, cs1, S[(j+4)%8], 2, D[j], 2, n); }
  127. cvsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  128.   for (j=0; j<32; j++)
  129.     cvsmul(S[j], 2, &rs1, D[j], 2, n); }
  130. cvsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  131.   for (j=0; j<32; j++)
  132.     cvsqrt(S[j], 2, D[j], 2, n); }
  133. cvsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  134.   for (j=0; j<32; j++)
  135.     cvsub(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  136. deq22_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  137.   for (j=0; j<32; j++)
  138.     deq22(S[j], inc1, S[(j+4)%8], D[j], inco, n); }
  139. dotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  140.   for (j=0; j<32; j++)
  141.     dotpr(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
  142. envel_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  143.   for (j=0; j<32; j++)
  144.     envel(S[j], D[j], n); }
  145. fftwts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  146.   for (j=0; j<32; j++)
  147.     fftwts(D[j], m, n); }
  148. fix4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  149.   for (j=0; j<32; j++)
  150.     fix4(S[j], inc1, (long*)D[j], inco, n); }
  151. fix2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  152.   for (j=0; j<32; j++)
  153.     fix2n(S[j], inc1, svo, inco, n); }
  154. fix4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  155.   for (j=0; j<32; j++)
  156.     fix4n(S[j], inc1, (long*)D[j], inco, n); }
  157. fixbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  158.   for (j=0; j<32; j++)
  159.     fixbn(S[j], inc1, (char*)D[j], inco, n); }
  160. flt2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  161.   for (j=0; j<32; j++)
  162.     flt2((short*)S[j], inc1, D[j], inco, n); }
  163. flt2iq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  164.   for (j=0; j<32; j++)
  165.     flt2iq((short*)S[j], inc1, D[j], D[(j+4)%8], n); }
  166. flt4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  167.   for (j=0; j<32; j++)
  168.     flt4((long*)S[j], inc1, D[j], inco, n); }
  169. fltb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  170.   for (j=0; j<32; j++)
  171.     fltb((char*)S[j], inc1, D[j], inco, n); }
  172. fltbu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  173.   for (j=0; j<32; j++)
  174.     fltbu((char*)S[j], inc1, D[j], inco, n); }
  175. fxsl2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  176.   for (j=0; j<32; j++)
  177.     fxsl2n(S[j], inc1, &rs1, &rs2, svo, inco, n); }
  178. fxsl4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  179.   for (j=0; j<32; j++)
  180.     fxsl4n(S[j], inc1, &rs1, &rs2, (long*)D[j], inco, n); }
  181. fxslbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  182.   for (j=0; j<32; j++)
  183.     fxslbn(S[j], inc1, &rs1, &rs2, (char*)D[j], inco, n); }
  184. gcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  185.   for (j=0; j<32; j++)
  186.     gcosf(D[j], inco, &rs1, &rs2, n); }
  187. gcexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  188.   for (j=0; j<32; j++)
  189.     gcexp(&rs1, &rs2, D[j], 2, n); }
  190. hamm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  191.   for (j=0; j<32; j++)
  192.     hamm(S[j], inc1, D[j], inco, n); }
  193. hann_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  194.   f